home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
REFERENC
/
TPR
/
SOURCE.EXE
/
TCMDSET.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1992-08-07
|
517b
|
22 lines
{ TCMDSET.PAS }
{ Example using TCommandSet, from TVSHELL8.PAS }
var
CommandsOn : TCommandSet;
CommandsOff : TCommandSet;
...
CommandsOn := [cmUseDOS, cmDelete];
CommandsOff := CommandsOn;
if (SetUpData.ProgOptions and 2) = 2 then
CommandsOff := CommandsOff - [cmUseDOS];
if (SetUpData.ProgOptions and 4) = 4 then
CommandsOff := CommandsOff - [cmDelete];
CommandsOn := CommandsOn - CommandsOff;
DisableCommands( CommandsOff );
EnableCommands( CommandsOn );